扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
啊!看来我把问题看简单了!当时我想好像很少遇到过，要不自己试试!...倒。因为最近心情很压抑，心情不太好。烦！没多少心情认真去思考解决方式，用常规自己能想到的几种解决都无法实现，解决很晕。然后呢，就索性不去想了。晚上听完广播后才又想起我要考虑这个问题，呵呵，只用了5分钟时间就想到了这个解决方式，然后呢，又用了5分钟时间去考证是否可行。今天早上来一摆弄，就可以起了。呵呵!
废话就不多说了。这个方法也是我唯一想到的方法，如果您有什么更好的方法，您也可以在这里给我提出。非常感谢!
DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>WebForm15title>
<meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
<meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
<meta content="javascript" name="vs_defaultClientScript">
<meta content="http://schemas.microsoft.com/intellisense/ie5"
name="vs_targetSchema">
HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<asp:datalist id="DataList1" style="Z-INDEX: 101; LEFT: 111px;
POSITION: absolute; TOP: 54px"
runat="server" RepeatDirection="Horizontal" RepeatColumns="3"
Width="234px">
<ItemTemplate>
<asp:Label ID="lblmsg" Runat=server Text=''<%# DataBinder.Eval
(Container.DataItem,"id").ToString() %>''>
asp:Label>
ItemTemplate>
<AlternatingItemTemplate>
<asp:Label ID="Label2" Runat=server Text=''<%# DataBinder.Eval
(Container.DataItem,"id").ToString() %>''>
asp:Label>
AlternatingItemTemplate>
asp:datalist>form>
body>
HTML>
Imports System
Imports System.Data
Imports System.Data.oledb
Public Class WebForm15Class WebForm15
Inherits System.Web.UI.Page
Web 窗体设计器生成的代码#Region “Web 窗体设计器生成的代码”
''该调用是 Web 窗体设计器所必需的。
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()Sub
InitializeComponent()
End Sub
Protected WithEvents DataList1 As System.Web.UI.WebControls.DataList
''注意: 以下占位符声明是 Web 窗体设计器所必需的。
''不要删除或移动它。
Private designerPlaceholderDeclaration As System.Object
Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Init
''CODEGEN: 此方法调用是 Web 窗体设计器所必需的
''不要使用代码编辑器修改它。
InitializeComponent()
End Sub
#End Region
Dim conn As OleDbConnection
Dim i As Integer
Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
''在此处放置初始化页的用户代码
conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;
" & "Data Source=" & Server.MapPath("data/link.mdb"))
Dim cmd As New OleDbDataAdapter("select top 15 id,jj from link", conn)
Dim ds As New DataSet
cmd.Fill(ds, "tab")
DataList1.DataSource = ds.Tables("tab")
DataList1.DataBind()
End Sub
Private Sub DataList1_ItemDataBound()Sub DataList1_ItemDataBound
(ByVal sender As Object,
ByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles
DataList1.ItemDataBound
i = i + 1
If i > 3 And i <= 6 Then
e.Item.BackColor = Color.Blue
End If
If i >= 6 Then
i = 0
End If
End Sub
End Class
在补充一下，这里的i>3 and i<=6这个,我刚才没讲清楚，可能您有点困惑呢!
因为我这里是每行显示三条数据啦！所以这里是3和6,如果您是5条的话，那么就是5和10了,以此类推!
濠电姷鏁告慨鐑姐€傛禒瀣劦妞ゆ巻鍋撻柛鐔锋健閸┾偓妞ゆ巻鍋撶紓宥咃躬楠炲啫螣鐠囪尙绐為梺褰掑亰閸撴盯鎮惧ú顏呪拺闂傚牊鍗曢崼銉ョ柧婵犲﹤瀚崣蹇旂節婵犲倻澧涢柛瀣ㄥ妽閵囧嫰寮介妸褋鈧帡鏌熼挊澶婃殻闁哄瞼鍠栭幃婊堝煛閸屾稓褰嬮柣搴ゎ潐濞叉ê鐣濈粙璺ㄦ殾闁割偅娲栭悡娑㈡煕鐏炲墽鐭嬫繛鍫熸倐濮婄粯鎷呯粵瀣異闂佹悶鍔嬮崡鍐茬暦閵忋倕鍐€妞ゆ劑鍎卞皬闂備焦瀵х粙鎴犫偓姘煎弮瀹曚即宕卞Ο闀愮盎闂侀潧鐗嗛幊搴㈡叏椤掆偓閳规垿鍩ラ崱妞剧凹濠电姰鍨洪敋閾荤偞淇婇妶鍛櫤闁稿鍊圭换娑㈠幢濡纰嶉柣搴㈣壘椤︾敻寮诲鍫闂佸憡鎸鹃崰搴敋閿濆鏁嗗〒姘功閻绻涢幘鏉戠劰闁稿鎹囬弻锝呪槈濞嗘劕纾抽梺鍝勬湰缁嬫垿鍩為幋锕€宸濇い鏇炴噺閳诲﹦绱撻崒娆戝妽妞ゃ劌鎳橀幆宀勫磼閻愰潧绁﹂柟鍏肩暘閸斿矂鎮為崹顐犱簻闁圭儤鍨甸鈺呮倵濮橆剦妲归柕鍥у瀵粙濡歌閸ｃ儳绱撴担绛嬪殭婵☆偅绻堝濠氭偄绾拌鲸鏅ｉ悷婊冪Ч閹﹢鎳犻鍌滐紲闁哄鐗勯崝搴ｇ不閻愮儤鐓涢悘鐐跺Г閸犳﹢鏌℃担鐟板鐎规洜鍠栭、姗€鎮╅搹顐ら拻闂傚倷娴囧畷鍨叏閹惰姤鈷旂€广儱顦崹鍌炴煢濡尨绱氶柨婵嗩槸缁€瀣亜閺嶃劎鈽夋繛鍫熺矒濮婅櫣娑甸崨顔俱€愬銈庡亝濞茬喖宕洪埀顒併亜閹哄棗浜鹃梺鎸庢穿婵″洤危閹版澘绫嶉柛顐ｇ箘椤撴椽姊虹紒妯哄鐎殿噮鍓欒灃闁告侗鍠氶崢鎼佹⒑閸撴彃浜介柛瀣閹﹢鏁冮崒娑氬幈闁诲函缍嗛崑鍡樻櫠椤掑倻纾奸柛灞剧☉缁椦囨煙閻熸澘顏柟鐓庢贡閹叉挳宕熼棃娑欐珡闂傚倸鍊风粈渚€骞栭銈傚亾濮樺崬鍘寸€规洖缍婇弻鍡楊吋閸涱垽绱遍柣搴＄畭閸庨亶藝娴兼潙纾跨€广儱顦伴悡鏇㈡煛閸ャ儱濡煎褜鍨伴湁闁绘ǹ绉鍫熺畳闂備焦瀵х换鍌毼涘Δ鍛厺闁哄洢鍨洪悡鍐喐濠婂牆绀堟慨妯挎硾閽冪喖鏌曟繛褍瀚烽崑銊╂⒑缂佹ê濮囨い鏇ㄥ弮閸┿垽寮撮姀鈥斥偓鐢告煥濠靛棗鈧懓鈻嶉崶銊ｄ簻闊洦绋愰幉楣冩煛鐏炵偓绀嬬€规洟浜堕、姗€鎮㈡總澶夌处
京公网安备 11010802021500号